home *** CD-ROM | disk | FTP | other *** search
- inherited frmSetSystemTime: TfrmSetSystemTime
- Left = 498
- Top = 388
- HelpContext = 93
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = ''
- end
- inherited spdPVar: TSpeedButton
- Left = 414
- Top = 13
- end
- inherited memActionDesc: TMemo
- Lines.Strings = (
-
- 'Sets the system clock to an internet time server if the first op' +
- 'tion is selected. If '
-
- 'the first server in the list does not respond, then the next wil' +
- 'l be tried and so on. '
-
- 'Or the system time will be set to the date and time specified in' +
- ' the second option.')
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- ActivePage = tbsAM5Main
- inherited tbsAM5Main: TTabSheet
- object lblPort: TLabel
- Left = 276
- Top = 17
- Width = 24
- Height = 13
- Caption = '&Port:'
- end
- object grpTimeServer: TGroupBox
- Left = 10
- Top = 16
- Width = 255
- Height = 85
- TabOrder = 1
- object cbxTimeServers: TComboBox
- Left = 10
- Top = 24
- Width = 219
- Height = 21
- Enabled = False
- ItemHeight = 13
- TabOrder = 0
- Items.Strings = (
- 'ntp.nasa.gov'
- 'tock.gpsclock.com'
- 'time-a.timefreq.bldrdoc.gov'
- 'tock.usno.navy.mil'
- 'clock.isc.org'
- 'tick.ucla.edu'
- 'tick.mit.edu')
- end
- object chkOneServer: TCheckBox
- Left = 10
- Top = 56
- Width = 225
- Height = 17
- Caption = '&Only check this server'
- TabOrder = 1
- OnClick = chkOneServerClick
- end
- end
- object rdTimeServer: TRadioButton
- Left = 20
- Top = 16
- Width = 237
- Height = 17
- Caption = '&Set to internet time server'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnEnter = rdTimeServerEnter
- end
- object grpSetDate: TGroupBox
- Left = 10
- Top = 113
- Width = 255
- Height = 88
- TabOrder = 3
- object AMdtPanel: TAM5DateTimePanel
- Left = 8
- Top = 24
- Width = 240
- Height = 57
- InsertCaption = 'Custom'
- EasyDatesMenu.Strings = (
- 'Last 30 Seconds'
- 'Last 30 Minutes'
- 'Last 24 Hours'
- 'Last 30 Days'
- 'Last 12 Months'
- 'Last 5 Years'
- '-'
- 'Next 30 Seconds'
- 'Next 30 Minutes'
- 'Next 24 Hours'
- 'Next 30 Days'
- 'Next 12 Months'
- 'Next 5 Years')
- AM5DateTime = '%DateSerial(1899,12,30) + TimeSerial(00,00,00)%'
- RawDataCaption = 'Expression'
- end
- end
- object rdSetDateTime: TRadioButton
- Left = 20
- Top = 113
- Width = 237
- Height = 17
- Caption = 'Set to a specified &date and time'
- TabOrder = 2
- OnEnter = rdSetDateTimeEnter
- end
- object edtPort: TEdit
- Left = 276
- Top = 32
- Width = 183
- Height = 21
- TabOrder = 4
- Text = '123'
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 200
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- end
- inherited IvTranslator1: TIvTranslator
- Left = 232
- end
- end
-